home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / 3d & render tools / raystorm / examples / arexx / fog1.ray < prev    next >
Encoding:
Text File  |  1996-07-16  |  902 b   |  55 lines
  1. /***************
  2.  * NAME:          fog1.ray
  3.  * DESCRIPTION:   Test of fog
  4.  * AUTHOR:        Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.     address COMMAND 'stack 8192'
  13.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  14.     address COMMAND 'stack 4096'
  15.     address COMMAND WaitForPort RAYSTORM
  16. END  
  17.  
  18. address RAYSTORM
  19.  
  20. 'TEXTUREPATH /textures'
  21.  
  22. 'SETSCREEN 160 128'
  23. 'SETCAMERA <0,0,-75> <0,0,0> <0,1,0> 25 20'
  24. 'SETWORLD [0,0,0] [0,0,0] FOGLEN=60 FOGHEIGHT=10'
  25. 'POINTLIGHT <20,20,-40>'
  26.  
  27. 'NEWSURFACE RED'
  28. 'DIFFUSE [255,0,0]'
  29.  
  30. 'NEWSURFACE GREEN'
  31. 'DIFFUSE [0,255,0]'
  32.  
  33. 'NEWSURFACE BLUE'
  34. 'DIFFUSE [0,0,255]'
  35.  
  36. 'SPHERE RED <5,0,0> 3'
  37. 'SPHERE BLUE <10,5,50> 4'
  38. 'SPHERE RED <10,0,10> 4'
  39. 'SPHERE GREEN <-10,-5,80> 5'
  40. 'SPHERE BLUE <-5,0,40> 6'
  41.  
  42. 'STARTRENDER'
  43.  
  44. 'SAVEPIC fog1.iff'
  45.  
  46. 'CLEANUP'
  47.  
  48. exit 0
  49.  
  50. error:
  51. say "Error" rc "in line" sigl ":"
  52. GETERRORSTR rc
  53. say result
  54. exit 0
  55.